##############################################################################
###+------------+#############################################################
#+-| CHK_OPEN() |-----------------------------------------+###################
#| +------------+ Returns TRUE if specified alias is open |###################
#+--------------------------------------------------------+###################
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE fileio.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |---------------------------------+##############################
#|     FUNCTION LOGICAL chk_open PROTOTYPE     |##############################
#|      PARAMETERS ALIAS aliasname             |##############################
#+---------------------------------------------+##############################
##############################################################################
##############################################################################
###############+---| Description |----------------------------+###############
###############| The chk_open() function returns TRUE if the  |###############
###############| specified alias is open.                     |###############
###############+----------------------------------------------+###############
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Check if a database is opened prior to using        |#########
#########| *    the open command.                                   |#########
#########|                                                          |#########
#########| DBFDEF jbl                                               |#########
#########|     {...}                                                |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########|     IF .NOT. chk_open( jbl )                             |#########
#########|         OPEN "jbl.dbf" ALIAS jbl                         |#########
#########|     ENDIF                                                |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    FORCE allows up to 255 file handles (see            |#########
#########| *    more_handles). Therefore, if a program requires     |#########
#########| *    a database to be opened in a GET valid, use         |#########
#########| *    chk_open().                                         |#########
#########|                                                          |#########
#########| FUNCTION LOGICAL get_valid                               |#########
#########|                                                          |#########
#########|     IF .NOT. chk_open( valid_database )                  |#########
#########|         OPEN "v.dbf" ALIAS valid_database                |#########
#########|     ENDIF                                                |#########
#########|     {...}                                                |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################